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, افتتاحية: سجل النظام والثغرات القانونية 

Sale! .‏ الاستخدام في دلفي: الجزء الثاني — الإطارات 

, مكونات دلفي: مكونات KOL-MCK‏ 

. مكونات دلفي: مكون ActionList‏ 

if. then. else ضد‎ iif أوامر دلفي:‎ , 

Directive overload أوامر دلفي:‎ , 

IDR - Interactive Delphi Reconstructor برامج لها علاقة بدلفي:‎ , 


0 العدد1‎ ja ped حل‎ , 
Flash Memory Filter / Locker ثمرين هذا العدد: برمجة‎ , 
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سجل النظام و الثغرات القانونية. 


حين نقوم بقرادة اتفاقية الاستعمال خلال تنصيب البرامج و بالنقر على زر موافق نصبح مربوطين و ملرمين 
بالشروط التي تم ذكرها في الاتفاقية. 

و من الطبيعي انه لا يسمح Ud‏ بالتعديل في خيارات التسجيل للنسخ التجريبية GU‏ أي تعديل يعتبر 
قرصنة للبرنامج و يعاقب عليه القانون. 


و لكن ماذا عن التعديل في سجل النظام Windows Registry‏ $ 


Ud عندنا برنامج يقوم بحفظ عدد أيام استعماله في سجل النظام. و الاتفاقية الخاصة به تقول أن‎ N 
رمدة زمنية محدودة) فقط و علينا شراء النسخة الكاملة في حالة رغبة‎ Trial الحق في استعماله بصفة‎ 
استعمال البرنامج بدون نحديدات.‎ 
التعديل المباشر في قيم البرنامج أو في قيم ملفاته يعتبر إخلال بالاتفاقية و لكن في نفس الوقت نملك كل‎ 
مثلا نملك الحق‎ Windows الحق في التعديل في قيم سجل النظام لأنه عند شراء نسخة من نظام تشغيل‎ 
في حذف و تغيير مفاتيحه.‎ 
لأي برنامج قام بحفظها هو في سجل النظام لا يعتبر خرق للاتفاقية و‎ Trial يعني حذف مفاتيح ال‎ 
القانون لا يعتبرنا مذنبين لان التعديل مس حق من حقوق حرية استغلال سجل النظام عند شراء نسخة من‎ 
نظام التشغيل.‎ 

الكائب: إدارة المنندى 
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إعادة الاستخدام في دلفي ‏ بقلم 


الجزء الثاني — الإطارات 


الإطارات في دلفي عبارة عن حاوية لمجموعة مكونات يتم تحديد خصائصها و برمجة أحداتهاء وتحفظ لكي 
يعاد استخدامها على نماذج شاشات التطبيق. 

توفر هذه الإطارات إمكانية تصميم وبرمجة المكونات ضمن الإطار لمرة واحدة, ثم نعيد استخدامها لأكثر من 
مرة في شاشات البرنامج مثل أي مكون آخر. 

لنبدأ باستطلاع كيفية Frame e U‏ واختبار سلوكياته. ثم ننظر في كيف يمكن لهذه الإطارات أن 
تفيدنا و كيف توفر Lile‏ الكثير من الجهد و الوقت. 


من خلال الأوامر Filel New| Frame‏ بإنشاء نموذج إطار جديد كما هو في الشكل CY‏ 


Delphi 6 - Project‏ مإ 


Fle Zeil Search wiew Frujetl Rui Capul Dabcbhas2 Tuss  Eurekabug SExperl, window Hep lona 


| New 0 0 م‎ Ed Applcatior Additional | Wing? | testem | Dialoas | COM+ | Internist | Data Access | 


a Open... i] CL Appicaton al on بلك‎ Ay [al = uj) kK © s ES meee 
MS Open Proeck... Ct NI! Date Module 

Recpen HE] Fom l چ‎ 
Hs. e rmm |^ 
T Save as... EB urit E Frame? 
SA Save Project as... O ster... 
fl save ام‎ shops T 


B. Lose 
Zh. Lose al 


Ty Use Lite. ALII 


Š} Prirk... 
E Exit 


الشكل ( 
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وكما هو ظاهر فإن شاشة الإطار تشبه شاشة النموذج Form‏ و سيكون الإطار جاهزا كي نضع عليه ما [cua‏ 


من مكونات. 
نضع على الإطار مكونات مثلا من نوع TEdit‏ و TLable‏ و TButton‏ أيضا يمكن تغيير لون الإطار وحجمه. 
كما في الشكل 2 


l^ Frame2 


Labeli 


Text! 
Button! 


الشكل )2( 
الآن بعد أن U‏ الاطار يمكننا مباشرة استخدامه. ووضعه على نموذج الساسة. 
في شريط المكونات وفي صفحة 98001310 نجد أول أيقونة فيه نمثل الإطارات كما في الشكل (3). 
Standard | Additional | winaz |‏ 


B [FUE & a 
EE 


الشكل )3( 
A‏ 500 وبالضغط على هذه الأيقونة ثم على نموذج الشاشة Form‏ مربع به قائمة بالإطارات 
المتوفرة. الشكل )4( 


Select frame to insert 


(Ay الشكل‎ 
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c c. 


نقوم باختيار الإطار من القائمة ثم موافق. فيتم حالا إدراج تجسيدا لهذا الإطار داخل نموذج الشاشة مثل أي 
مكون. يمكن أن نقوم بإدراج تجسيدا آخر للإطاركما في الشكل )9( 


Labell F Frame? EJ ED E3 


Texti 
Buttoni 


Labeli 


Texti 
Button! 


Labell 


Texti 
n 
Buttoni 


الشكل )9( 
كما نرى في الشكل )9( لم نقم بإغلاق شاشة (ola‏ وذلك لغرض مراقبة سلوكها. 
أي تجسيد لإطار يرث خصائص الإطار الأصلي 


لو تأملنا duda‏ الفورم سنجد أن نجسيد الإطار على الشاشة هو نسخة طبق الأصل من تصميم الإطار الأصلي. 
الآن, لو ذهبنا إلى الإطار الأصلي و غيرنا من خصائصه أو خصائص إحدى مكوناته (تغيير حجم olla!‏ أو 
مكان الزر ملا سنلاحظ انعكاس هذا التغيير على الإطارات في الفورم فورا. أي أن تنجسيدات الإطار في 
الفورم ترث خصائص الإطار الأصلي وتتأثر بأي تغيبر يحدث على الإطار الأصلي. 

نسخة الإطار يمكن تعديل خصائصها متجاوزة الإطار الأصلي 

نجسيدات الإطار يمكن أن تتجاوز خصائص الإطار الأصلي؛ فلو ذهبنا إلى إحدى تجسدات الإطار في الفورم 
وحركنا مكان الزرأو الكتابة. فسنجدها pii‏ وتستقل بخصائصها عن خصائص الإطار الأصلي. 
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لاسترجاع الخصائص الأصلية لأي مكون في تجسيد الإطار, نقوم باختيار المكون ثم بالزر الأيمن للفارة 
نستدعي لانحة الأوامر الفرعية Revert to Inherited „ Jio,‏ فيستعيد المكون خصائصه ال موروثة 
التي كانت عليه في الإطار الأصلي كما هو مبين في الشكل )6( 


Labeli 


[Edin * " 
m Buttoni I 
E „ 
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نريد لشاشات برنامجنا أن يكون لها لافتة عليا موحدة بها شعار البرنامج و إسمه. 


نقوم بإنشاء إطار جديد ونضع فيه المكونات المطلوبة كما في الشكل (7). 


framBanner 2‏ 1 
نظام ادارة الكتب و الدوريات S‏ 


الشكل (J;‏ 
الإطار به مكون Timage‏ و مكون Tlabel‏ 


نسمی الإطار FramBanner‏ ثم نقوم بحفظه بإسم fmBanner. pas‏ لاحظ أن ملف الإطار لايختلف 


كثيرا عن ملف أي Form‏ في دلفي, في الواقع أنهما ينتميان لنفس العائلة. ولو تفحصنا ملف تعليمات 
الإطار سنجده يتشابه مع تلك التي لل Form‏ 


الآن بعد حفظنا للإطار يمكننا استخدامه على نماذج الشاشات لدينا. نضع الإطار على النموذج, ونجعل من 
خاصية alTop = Align‏ ليكون أعلى الشاشة. كما في الشكل (8). 


كحك كر Foret‏ هل[ 


نظام ادا رة الكتب و الدوريات AM‏ 


P form — mE 


نظام ادار E‏ الكتب و الدوريات mo) M‏ 


7 Ip rorms E mx 


نظام إدارة الكتب و الدوريات (o W‏ 


الشكل 8( 
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كما أشرنا أن جميع تجسدات الإطار ترث نفس خصائص الإطار الأصلي. كما أنها تستجيب وقتيا SY‏ تغيير 
يطرأ على الإطار الأصلي ؛ ما لم نغير في إحدى خصائص مكوناته. فإن تلك الخاصية تحتفظ بقيمتها 
المعدلة, ونستطيع إرجاعها بإعادة المكون إلى صيغته الموروثة Revert to Inherited YL‏ انظر الشكل 
(6). 

قليل من 200 

يمكننا إضافة تعليمات برمجية غلى الإطار, Ss‏ في الحدث Labell5;51 OnClick‏ يمكننا إظهار مربع 
رسالة كما في الشكل )9( 


— lc 
Zl لمن‎ | Unit2 | Unts fmBanner wes 
+ * TframB anner 
＋ I Uses implementation 
{SR *.dfm] 


procedure Tfran Banner. Label IcIick (Sender: TObject); 
begin 
ShowMessage ('تlيرودلا '.تظام إدارة الكتب و‎ + #13 + 
'1 'تسخة‎ + #13 + F 
"2010 .خقوق الطيع محقوظة‎ ' ); 


end 
end 
18: 17 Insert \ Code / Diagram / 


عندها فإن كل التجسدات لهذا الإطار يمكنها إظهار الرسالة عند النقر على مكون الكتابة. كما في الشكل 
cD,‏ 


fi Form Sc 
S نظام ادارة الكتب و الدوريات‎ 
Projecti mx 
.نظام إدارة الكتب و الدوريات‎ 


نسخة 1 


.خقوق الطبع محفوظة 2010 


(D, الشكل‎ 


www.delphidarab.com 


DAA Magazine لهي للعرب‎ a 6 4 


العدد رقم : 02 لشهر - D July‏ 20 


التعليمات التي كتبناها محصورة فقط في الإطار الأصلي. أي أنه في نماذج الشاشات التي تستخدم هذا الأطار 

سوف لن تظهر هذه التعليمات. لكن يمكننا معالجة أي حدث لأي مكون في تجسدات الإطار. مثلاء لو ذهبنا 

إلى أي نموذج وضعنا فيه slaf‏ نجد أن OnClick G‏ لمكون الكتابة غبر مخصص. و لكننا إذا 
استدعيناه ستقوم دلفي تلقائيا بالتأكيد على مناداة التعليمات في الإطار الأصلي. مثل التالي: 

procedure TForml.framBannerlLabellClick(Sender: TObject); 

begin 


framBannerl.LabellClick (Sender); 
end; 


الآن إذا قمنا s‏ هذه التعليمة؛ فإن التعليمات في الإطار الأصلي لهذا الحدث سوف لن تنفذ. ونستطيع 
أن نكتب تعليمات بديلة تنفذ فقط على مستوى هذه النسخة من الإطار أو يمكن كتابة تعليمات قبلها لتنفذ 
f]‏ ثم تعليمة الإطار الأصلية ثم تنفيذ تعليمات أخرى لاحقة كالتالي: 


procedure TForml.framBannerlLabellClick(Sender: Tobject); 


begin 
framBannerl.Color := clRed; 
framBannerl.LabellClick (Sender); 
framBannerl.Color := clWhite; 
end; 


حيث قمنا يتغيبر لون الإطار للأحمر, ثم استدعاء التعليمة الأصلية لإظهار الرسالة, ثم إعادة الإطار إلى 
اللون الأبيض. 

ملخص 

تقدم الإطارات Frames‏ صيغة قوية لإنشاء مجمعات من المكونات المترابطة التي يمكن إعادة استخدامها 
أكثر من مرة. الإطار يمكن أن يكون تجميعا بسيطا لعدد محدود من المكونات, أو صيغة معقدة لمجموعة من 
المكونات و التعليمات. يمكن أيضا استخدام O‏ قواعد البيانات داخل هذه الإطارات وربطها بالسياق العام 


للبرنامج. راجع (المجلد (Demos Frames Db‏ ضمن حزمة دلفي. 
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KOL-MCK مكونات:‎ 


تعتبر هذه المكونات من ابرز المكونات التي تعالج مشكل كبر حجم الملفات التنفيذية في دلفي. حيث 
باستعمالها نحصل على ناتج بحجم صغبر جداء مع الحفاظ على معظم مهام المكتبات الجاهزة VCL‏ 
تدعم كل إصدارات دلفي إلى إصدار 0 20 الحالي مع اخذ بعين الاعتبار ال Unicode‏ 


فام فريق منندى دلفي للعرب بعمل نسخة Precompiled library‏ دلفي 7 و دلفي 2010 و 
برمجة أداة تسمح للمستعمل بتثبيت أو إلغاء تثبيت مكونات KOL-MCK‏ بدقة و سهولة متناهية. 

طريقة استعمال المكونات: 

يجب أن ننتبه إلى أنه لا يمكننا وضع مكون من القائمة مباشرة على ال Form‏ الافتراضية لدلفي دون 
عمل بعض التعديلات عليهاء لذا من أفضل و أسهل الطرق الاعتماد على KOL-MCK Wizard‏ في ذلك. 
على دلفى 7: 

نذهب إلي File‏ ثم New‏ ثم Other‏ و في النافذة التي تظهر نذهب إلى تبويب Wizards‏ و نختار 
New KOL-MCK Project‏ و بعد هذه العملية يطلب منا القيام بحفظ ملفات المشروع, و هنا تنتهي 
عملية الإنشاء و يمكننا استغلال JS‏ مكونات KOL- MCK‏ دون مشاكل. 


على دلفي D‏ 20 
نذهب إلي File‏ ثم New‏ ثم New KOL-MCK Project‏ و نقوم بنفس عملية الحفظ للمشروع المذكورة 
فوق. 
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ملاحظة: التعامل مع مكونات KOL-MCK‏ يختلف عن التعامل مع VCL‏ العادية من gailas Cur‏ المكونات 
المعروفة. مثلا مكون Memo‏ لا نتحتوي على خاصية Lines‏ 


مثال: من T&ringList‏ إلى PStrList‏ 


Wiehe Sim duet PSI I II St 
begin 
Strbhuist j= TStringhise. Create; 


StrList.Add('Delph4Arab'); 
StrList.Add('www.delphi4arab.com'); 
StrList.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Test.txt'); 
StrList.Free; 

end; 


T&ringList 


van obs Pt TN St 

begin 
StrList :- NewStrList; 
StrList.Add('Delph4Arab'); 
StrList.Add('www.delphi4arab.com'); 
StrList.SaveToFile(ExtractFilePath(ParamStr(0)) + 'Test.txt'); 
StrList.Free; 

end; 


P&rList 
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ActionList مكون:‎ 


v» 
vw 
~q 
P" 
A 


من مزايا دلفي هي المكونات الجاهزة الاستعمال و التي لا نتحتاج إلى كتابة سطر واحد من الأوامر. و من هذه 
المكونات, مكون ActionList‏ الذي يحنوي على مجموعة كبيرة من ال Actions‏ المستعملة في اغلب 
الأحيان. 

نجد مكون ActionList‏ في تبويب Standard‏ 


Standard | Additional | Win32| Svstem | Data Access | Data Controls | dbExoress | DataSnao | BDE | ADO | 


ks CS S Am 5ك‎ ware e Rew” m Ea 


ننشئ مشروع تجريبي و نضيف إليه مكونات ActionList ; Memo .MainMenu‏ 


Edit 


„% te 


بالنسبة لمكون MainMenu‏ نقوم بإضافة قائمة باسم Edit‏ تحتوي على عنصرين Paste 9 Copy‏ 
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نختار المكون ActionList‏ و نقوم بالنقر على الزر الأيمن للفارة ثم نختار ActionList Editor‏ 


03 


"m m 
لا‎ at 
"^ Action List Editor... 
Edit > 
Control > 
Position > 
Flip Children » 
& Tab Order... 
şê Creation Order... 


New &andard Action نذهب إلى‎ 


7 Editing Form1.ActionList1 
al> 


( New Action Ins | 


۱ New Standard Action... Ctrl+Ins 


] 
نخثار إضافة TEditCopy/TEditPaste action‏ من القائمة. 


standard Action Classes 


Available Action Classes: 


=|. (No Category) ^ 
TAction 
=|. Edit 
TEditCut 
TEditPaste 
TEditSelectll 
TEditUndo 
TEditDelete 


F Standard Action Classes 


Available Action Classes: 


=|. (No Category] ^ 
TAction 
=| Edit 
TEditCut 
TEditCopy 
TEditSelectll 
TEditUndo 
TEditDelete 
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نتأكد من انه تم إضافة الخيارات التي اخترناها 


Editing Form1.ActionList1 
ta * 


Categories: Actions: 


No Categor EditCopyt 
EditPaste1 


الآن نذهب إلى مكون  MainMenu‏ »4 إلى قائمة جديدة Soins Edit‏ على Copy/Paste palis‏ 


Object TreeView 


[7] Form 
سد‎ ActionListi = Form1.MainMe 


|» 


=) Edit 
s EditCopyl = : 
d EditPaste1 Copy Ctrl+C 
n MainMenul Paste Ctrl 


Edit {E ditî} 5 [MÀ ! 


wi 


Object Inspector 


Copy z 


Properties | Events | 


| Action 
AutoCheck  fEditCopy] 
AutoHotkeys |EditPastel 


و نذهب إلى خصائص كل عنصر و في خيار Action‏ نرفع ال Action‏ المناسبة للمثال ee one‏ 


Copy + Action : 
Paste + Action : 


EditCopyl 
EditPastl 
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بعد تجربة تشغيل المشروع نلاحظ أن عملية النسخ و اللصق تشتغل بنجاح دون كتابة 


f 


أي أمر Events‏ 


Copy Ctrl+C 
Paste Ctrl+V i 


Paste Ctrl | Delphid^rab 


=) Search =). [No Category] 
TSearchFind 
TSearchFindNext =|. Edit 
TSearchReplace TEditCut 
TSearchFindFirst TEditCopy 

=|. Tab TEditPaste 
TPreviousT ab TEditSelectll 
TNextT ab TEditUndo 

— List TEditDelete 
TListControlCopyS election =|. Format 
TListControlDeleteS election TRichE ditBold 
TListControlSelectall TRichE ditltalic 
TListControlClearS election TRichE ditUnderline 
TListControlMoveSelection TRichE ditStrikeDut 
TStaticListAction TRichE ditBullets 
TVirtualList&ction TRichE dit&lignL eft 

=|. Dialog TRichE dit&lignRight 
TüpenPicture TRichE dit&lignCenter 
TSavePicture =| Help 
TColorSelect THelpContents 
TFontE dit THelpTopicSearch 
TPrintDla THelpOnHelp 

=} Internet THelpContextAction 
TBrowseURL . Window 
TDownLoadURL TwindowClose 
TSendMail TwWindowCascade 

=| Dataset Tino ileHorizontal 
TDataSetFirst TwindowT ileVertical 
TDataSetPrior TWindowMinimizell 
TDataS etNext TwindowdArrange 
TDataSetLast =. File 
TDataSetlnsert TFileOpen 
TDataSetDelete TFE perth 
TDataSetE dit TFileSaveAs 
TDataSetPost TFilePrintS etup 
TDataSetCancel TFilePageSetup 
TDataSetRefresh TFileRun 
TClientD ataSetApply TFileE xit 


TClientDataSetRevert 

TClientD ataS etUndo 
=|. Tools 

TCustomizeActionB ars 


458 بكل Actions!‏ الموجودة في مكون ActionList‏ 
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iif (immediate if) 
ض ل‎ 


if...then...else 


استزادا من لغات برمجة أخرى مثل Visual Basic‏ سنحاول استبدال الأمر الشرطي المعروف if.then.else‏ 
بأمر شرطي آخر و هو معرف kasi‏ باسم immediate if‏ و يكتب lif‏ بإضافة | إلى if‏ 


هيكل الدالة: 


function iif( 
Expression: boolean, 
ru ebat: Der 
FalsePart: type 

): type; 


Boolean و هو من نوع‎ Condition التعبير الشرطي أو‎ Expression 
القيمة المرجعة في حالة تحقق الشرط و نوعها غير معين.‎ TruePart 
القيمة المرجعة في حالة عدم تحقق الشرط و نوعها غير معين.‎ :FalsePart 


‘if, then., else الكتانة الشرطية العادية‎ Ads 


if a = b then 


Labell.Caption := ‘51! U موحد‎ 
else 
Labell.Caption := 'àlslu» 42-52 Y'; 
immediate if طريقة الكنابة السرطية باستعمال دال‎ 
Tale e apt r و( شوج مشلا اة‎ 
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تعريف الدالة و (ellas!‏ نوع :string‏ 


function iif(Expression: boolean; TruePart, FalsePart: string): string; 


begin 
if Expression then 
Result :- TruePart 
else 
Result := FalsePart; 
end; 
LI * £ هو * هه‎ 
integer تعريف الدالكة وإعطاتها دوع‎ 
function iif(Expression: boolean; TruePart, FalsePart: integer): integer; 
begin 
if Expression then 
Result :- TruePart 
else 
Result := FalsePart; 
end; 
هه‎ oe هو‎ 
الاسبدعاد:‎ Ada) plo 
ShowMessage (iif (TestEdt.Text = '123', 'Sucess', 'Error')); 
ShowMessage (IntToStr (iif (TestEdt.Text = '123', 1, 0))); 


يمكننا كتابة مجموعة من الدوال تدعم أنواع مخثلفة من المتغيرات و تحمل نفس اسم الاستدعاء و جعل ال 
Compiler‏ الخاص بدلفي هو الذي يختار دالة المعالجة حسب نوع البراميترات الممررة. يكفي فقط إضافة 
overload directive‏ إلى دوال المعالجة . ran ya)‏ يتحدث عن ( 
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Directive: Overload 


في بعض الحالات نحتاج معالجة معطيات من أنواع مختلفة مثل نوع integer string‏ أو غيرها عن طريق 
دالة واحدة دون الحاجة إلى تغيير اسم استدعاء الدالة إلى iif tring, iiflnteger, iifReal‏ .... و 
Jati‏ يكمن في Jaz directive‏ ال Compiler‏ الخاص بدلفي يخنار حسب نوع البراميتر الممرر الدالة 
المناسبة لعالجة المعطيات حتى و إن COS‏ نحمل نفس اسم الاستدعاى. هذه ال c directive‏ 
overload‏ 


مثال توضيحي: من وحدة SysUtils‏ نأخذ دالة التحويل IntToStr‏ التي نستعملها في اغلب الأحيان و هي 
تقبل نوعين مختلفين من البراميترات Integer‏ و .Int64‏ و يظهر خيار البراميثر تلقانيا عند N‏ قوس 
إدخال البراميترات. صورة1 0 : نلاحظ ظهور نوعين مختلفين. 

IntToStr il 


Value: Integer 
Value: Int64 


صورة1 0 


و لو اطلعنا على محتوى وحدة YUtils‏ سوف نلاحظ أن كثير من الدوال تحمل نفس اسم الاستدعاى و 
الخيار بينها e‏ به ال Compiler‏ بفحص نوع البرامير أولا قبل استدعاء الدالة. إذا كان النوع 
integer‏ يستدعي الدالة الأولى وإن كان النوع Int64‏ يستدعي الدالة الثانية. صورة 02 


function IntToStr(Value: Integer): string; overload; 
function Int Tostr (Values: Int64): string; overload; 
02 صورة‎ 
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ولفهم العملية بصورة تطبيقية ننشئ مشروع جديد ثم نأخذ نفس ال مثال الخاص بدالة iif‏ صورة 03 و04 


function iif(Expression: boolean; TruePart, FalsePart: string): string; overload; 


begin 
if Expression then 
Result :- TruePart 
else 
Result := FalsePart; 
end; 
03 صورة‎ 
function iif(Expression: boolean; TruePart, FalsePart: integer): integer; overload; 
begin 
if Expression then 
Result :- TruePart 
else 
Result := FalsePart; 
end; 
04355 
وه هو‎ we © +e * * P ^ * 
05 الاستدعاد. صورة‎ Ad) plo نصيف‎ TestBtn الخاص بالرر‎ OnClick oa» (à 
ShowMessage(iif(TestEdt.Text = '123', 'Sucess', 'Error')); 
ShowMessage(IntToStr(iif(TestEdt.Text = '123', 1, 0))); 


صورة 05 


نضع نقطة توقف على ShowMessage sl yz!‏ الأول و الثاني ثم نشغل المشروع و ننقر على الزر 
0 و عند توقف دلفي نقوم بالسشبع باستعمال مفتاح .F7‏ صورة 06 


procedure TFormi.TestBtnClick(Sender: TObject); 
begin 


e(iif(TestEdt.Text 23 Sucess 1011 


e 
e ShowMessage(IntToStr(iif(Test 
end; 


نلاحظ أن Compiler-‏ بعد فحصة للبراميترات يستدعى في كل مرة الدالة التي تقبل نوع البراميتر 
الممرر. 
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برامج لها علاقة بدلفي- بقلم 


Interactive Delphi Reconstructor 


LIDE 


Interactive Delphi Reconstructor 


we * 


نبذة عن الأداة: 

IDR‏ عبارة عن أداة قيد التطوير من برمجة Crypto‏ لتفكيك الملفات التنفيذية المبرمجة بدلفي 
لغرض تحليلها و الحصول على اكبر عدد من المعلومات عن الملف المفكوك. 

تعتبر الخلف الجيد للأداة المشهورة ©0606 بعد توقف مبرمجها عن تطويرها. 

رابط التحميل: 


http://kpnc.org/idr32/en/index.htm 


EntryPoint 
push ebx 
push esi 
mou eax, 53058; quar 6653058: Pointer 
mou ebx,dword ptr ds:[54AB9C]; “Application :TApplication 
nou esi,dword ptr ds:[54AC3C]; ^gvar 8854D898:TFrmSplash 
nou ecx,dword ptr [ebx] 
mou d1,1 
nou eax,[665386E8]; TFrmSplash 
call TCustomForm.Create; TFrmSplash.Create 
nou dword ptr [esi],eax 
nou eax,dword ptr [esi] 
call TCustonmForn.Show 
nou eax,dword ptr [esi] 
nou edx,dword ptr [eax] 
call dword ptr [edx+88]; TWinControl .Update 

> jmp 8853C9A4C 

88536945 nou eax,dword ptr [ebx] 
call TApplication .ProcessMessages 
8853C9A4C nou eax,dword ptr [esi] 

mou eax,dword ptr [eax+2FC] 
cmp byte ptr [eax+46],6 

< jne 6653095 
nou eax,dword ptr [ebx] 
call TApplication.Initialize 
nou eax,dword ptr [ebx] 
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Units(F2) RTTI[F4) Forms (F5) 


* Test Form 

TABSPASSDIALOG 

TFRHDOUNF ILE 

TFRHEDITNEW 

TFRHHAIN 

TFRHHSG 

TFRMSPLASH 

TFRMWAIT 

TLOGINDIALOG 

TPASSWORDDIALOG 
Units (F2) RTTI(F4] Forms [F5] Units (F2) RTTI (F4) Forms (F5) 
00401000 #002 IF system P 66461666 <Enumeration> Boolean " 
884866B^ #661 SysInit 66461628 «Char» Char | 
061866 بلعم‎ 3 ?Unit3 00401903C «Integer»? Smallint 
6618686 1005 Windows 66461654 <Integer> Integer 
80467684 #005 ?Unit5 8048186C «Integer» Byte 
8618768 HOOF SysConst 66461 686 <Integer> Mord. 
80587055 #008 IF SysUtils 66461694 «Integer» Cardinal 


8858188C <Inté64> Intóh 
66461608 «Float? Double 
664616D8 «Float? Currency 


G646F164 #669 I varutils 
8848F93^4 #616 IF Variants 


00418184 8911 — RTILConsts 804018E8 <AnsiString> String 
885182DC 48812 F 0 004010F4 <WideString> WideString 
86419008 6 ?Unitó 66461104 «Uariant? Variant 
00119080 #613 IF Classes 88581168 Class) TObject 
00120708 #619 Consts 80401188 «Interface» IInterface 
885268RF8 #020 IF Graphics 66461268 «Dynfirray» TBoundfirray 
8852F9800 #014 Hath 66461296 (Float) TDateTime 
B88h2FBEO #615 Contnrs 6646686C «Integer» HUND 

806812 ووعع‎ 8 ComnCtrl 660466886 <Enumeration> ?Unit4.1 
80430838 #617 I  HultiHon 66466936 «Set? TOwnerDrawState 
804307B8 #022 ?Unit22 8840760554 <AnsiString> TFileName 
804307F8 1016 F HelpIntfs 8805076065 «Record» TSearchRec 
8045317E8 #633 ?Unit33 GO467AEC «Class? Exception 


80431848 #634 F Printers GO4684F4 <DynArray> ?Unit8.7^ 
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CodeViewer F6] Class¥iewer [F7] Strings [F8] 


00407656C <ResString> "s' is not a valid integer value 
D04076C4 «ResString» /s is not a valid floating point value 
DO4075CC «ResString» "7s' is not a valid currency vA 
O04076D4 «ResString» 7s is not a valid date' 
OO4076DC «ResString» s is not a valid time" 
004076E 4 «ResString» s is not a valid date and time 
OO4076EC «ResString» "Zd.Zd' is not a valid timestamp 
DO4075F4 «ResString» s is not a valid GUID value' 
OO4076FC «ResString» ‘Invalid argument to time encode' 
00407704 <ResString> ‘Invalid argument to date encode’ 
0040770C «ResString» ‘Out of memory’ 

00407714 «ResStrina» ‘1/0 error 'ل”‎ 

O040771C «ResString» File not found’ 

00407724 «ResString» ‘Invalid filename’ 

0040772C «ResString» Too many open files 

00407734 <ResString> File access denied! 

DO40773C «ResString» 'Read beyond end of file’ 
00407744 «ResString» Disk full 

DO040774C «ResString» ‘Invalid numeric input 

00407754 «ResString» Division by zero' 

D040775C «ResString» 'Range check error' 

00407764 «ResString» ‘Integer overflow’ 

00407 76C <ResString> ‘Invalid floating point operation’ 
00407774 «ResString» ‘Floating point division by zero’ 
DO040777C «ResString» ‘Floating point overflow’ 
00407784 «ResString» ‘Floating point underflow’ 

00407 78C «ResString» ‘Invalid pointer operation’ 
00407794 «ResString» ‘Invalid class typecast’ 

0040779C «ResString» Access violation at address .مث‎ Is of address Vp 
00407744 «ResString» ‘Access violation’ 

DO4077AC «ResString» Stack overflow’ 

00407784 «ResString» 'Control-C hit 

DO04077BC «ResString» ‘Privileged instruction’ 

004077C4 «ResString» Operation aborted’ 

D04077CC «ResString» 'Exception #s in module #s at ”.م‎ s? see 
DO04077D4 «ResString» ‘Application Error 


About... e 


Application: IDR by crypto 


Version: 2.1.1.33 
My respects to: 


DaFixer for wonderful program DeDe 

Alexey Hmelnov for nice utility dcu32int and open source code 
SVLab for continual IDR testing, help and site creation 
sendersu for IDR FormViewer assistance 

Kris Kaspersky for IDR hosting 


E-mail: 
Homepage: 
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حل تمرين العدد01 - بقلم 


نظرة على برمجة Delphi Wizard/Expert‏ 


كان المطلوب في تمرين العدد رقم01 من مجلة دلفي للعرب. محاولة برمجة أداة تدمج في واجهة التطوير 
الخاصة بدلفي. 


حل الثمرين: 

بالنسبة لشخص الذي يقوده حب الاستطلاع إلى تصفح مجلدات التنصيب الخاصة بدلفي سيكتشف ما يسره 
من أمثلة و وحدات جاهزة الاستعمال تعالج معظم ميادين البرمجة, و من ضمنها وحدة أو وحدات نتحتوي على 
دوال تسمح لنا بدمح أدوات في واجهة التطوير. 


وحدة :Exptintf.pas‏ 
مسارها الافتراضي: 


X:\Program Files\Borland\Delphi7\Source\ToolsAPI 
X:\Program Files\Embarcadero\RAD Studio\7.0\source\ToolsAPI 


تحتوي على مجموعة من تعريفات الدوال التي نحتاجها في هذا التطبيق. 


public 
( Expert UI strings ( 
function GetName: string; virtual; stdcall; abstract; 
function GetAuthor: string; virtual; stdcall; abstract; 
function GetComment: string; virtual; stdcall; abstract; 
function GetPage: string; virtual; stdcall; abstract; 

(SIFDEF MSWINDOWS } 
function GetGlyph: HICON; virtual; stdcall; abstract; 

{ SENDIF } 

{SIFDEF LINUX} 
function GetGlyph: Cardinal; virtual; stdcall; abstract; 

{ SENDIF } 
function GetStyle: TExpertStyle; virtual; stdcall; abstract; 
function GetState: TExpertState; virtual; stdcall; abstract; 
function GetIDString: string; virtual; stdcall; abstract; 
function GetMenuText: string; virtual; stdcall; abstract; 


{ Launch the Expert } 
procedure Execute; virtual; stdcall; abstract; 
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التعريف بالدوال: 


This is the declaration of the pure-virtual base class for the expert 
interface within the Delphi IDE. 


NOTE: In Delphi 1.0, the GetGlyph function used to return an HBITMAP, 
whereas now it must return an HICON. 


GetName - REQUIRED. This must return a unique descriptive name 
identifying this expert. 


GetAuthor - REQUIRED is style is esForm or esProject. This should 
return the "author" of this add-in/expert. This could 
be a person or company, for example. This value will 


be displayed in the Object Repository. 


GetComment - REQUIRED if style is esForm or esProject. This should 
return a 1 2 sentence describing the function of this 
expert. 

GetPage - REQUIRED if style is esForm or esProject. Should return 


short string indicating on which page in the repository 
this expert should be placed. NOTE: The user can still 
override this setting from the Tool|Repository dialog. 


GetGlyph - REQUIRED if style is esForm or esProject. This should 
return a handle to a icon to be displayed in the form or 
project list boxes or dialogs. Return 0 to display the 
default icon. 


GetStyle - REQUIRED. Returns one of four possible values: 

esStandard - Tells the IDE to treat the interface to 
this expert as a menu item on the Help 
menu. 

esForm — Tells the IDE to treat this expert interface 
in a fashion similar to form templates. 

esProject Tells the IDE to treat this interface in a 
fashion similar to project templates. 

esAddIn - Tells the IDE that this expert handles all its 


own interfacing to the IDE through the 
TIToolServices interface. 


GetState - REQUIRED. If the style is esStandard, esChecked will cause 
the menu to display a checkmark. NOTE: This function is 
called each time the expert is shown in a menu or listbox in 
order to determine how it should be displayed. 


GetIDString - REQUIRED. This ID string should be unique to all experts 
that could be installed. By convention, the format of the 
SEE ENG ESE 
Company Name. Expert Function, ex. Borland.WidgetExpert 


GetMenuText -  REQURED if style is es Standard. This should return the 
actual text to display for the menu item. NOTE: This 
function is called each time the parent menu is pulled-down, 
so it is possible to provide context sensative text. 


Execute - REQUIRED if style is esStandard, esForm, or esProject. 
Called whenever this expert is invoked via the menu, form 
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repository dialog, or project repository dialog. The style 
will determine how the expert was invoked. This procedure 
is never called if the style is esAddIn. 


TExpertInitProc defines the number and types of parameters passed to the 
single exported entry-point to the expert DLL. 
ToolServices - a pure-virtual class containing all the 

tool services provided by the IDE. 

RegisterProc - The function to call in order to register 
an expert. NOTE: This function is called 
once for each expert instance that the DLL 
wants to register with the IDE. 

Terminate - Set this parameter to point to a procedure 
that will be called immediately before the 
expert DLL is unloaded by the IDE. Leave 
nil, If not needed. 


:WizardTestP roject المشروع‎ 24» g 
مثلا و نعرفها بهذه الطريقة:‎ Notpad نقوم بإنشاء وحدة جديدة باستعمال أداة‎ 1 


unit WizardTestProject; 
interface 
uses 

Windows, ExptIntf; 


Type 
TWizardTest - class(TIExpert) 
public 


function GetStyle: TExpertStyle; override; 
function GetIDString: string; override; 
function GetName: string; override; 
function GetMenuText: string; override; 
function GetState: TExpertState; override; 
procedure Execute; override; 

end; 


procedure Register; 


implementation 


جزد قبل implementation‏ 


uses MainFrm ; 


2 ثم نضيف تعريف لوحدة MainFrm‏ و هي عبارة عن Unit‏ مع Form‏ مستقلة فارغة لا تحتوي على 
أوامر وضعت كمثال و التي سوف سيتم استدعاءها في حدث Execute‏ لاحقا. 
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هذ 


3 وأخبرا نكمل بإضافة الإجرادات و الدوال الثالية: 


procedure Register; 
begin 

RegisterLibraryExpert (TWizardTest.Create) 
end; 


function TWizardTest.GetStyle: TExpertStyle; 
begin 

Result := esStandarg; 
end; 


function TWizardTest.GetIDString: String; 
begin 

RE SURE 3 Hs tcI atcuest5 
end; 


function TWizardTest.GetName: String; 
begin 

Result :- 'Wizard Test Sample'; 
end; 


function TWizardTest.GetMenuText: String; 
begin 

Result := '&Wizard Test Sample'; 
end; 


function TWizardTest.GetState: TExpertState; 
begin 

Result := [esEnabled]; 
end; 


procedure TWizardTest.Execute; 
begin 
with TWizardExpertTest.Create(nil) do 
begin 
ShowModal; 
Free; 
end; 
end; 
end. 
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4 بعد الانتهاء من حفظ الوحدة WizardTestProject eub‏ بامتداد pas‏ طبعا نقوم بإنشاء 
MainFrm‏ - صورقة 0 


MainFrm 


interface 


uses 
Windows, 
Messages, 


SysUtils, = © © © 


Classes; Ecosse „„ „ 


Graphics, )⁵IIIII . 


„%% NM 
Forms,  '; „ elphi Wizard Sample 
O ü ⁵¼—⁵ß¹w“w—)—̃—— 


Dialogs, 
StdCtris. B... 3 
ExtCtrls; 


tvpe 
TWizardExpertTest = class [TForm) 
DLbl: TLabel; 
WizardLbl: TLabel; 
LinePnl: TPanel; 
private 
f Déclarations privées } 
public 
f Déclarations publigues } 
end; 


var 
WizardExpertTest: TWizardExpertTest; 


implementation 
{$R *.dfm) 


end. 


صورقة 0 


5 نقوم C‏ الوحدة WizardTestProject‏ كمكون جديد بنفس طريقة C=‏ دلقي Eb)‏ طريقة 


مەش - 


Cu‏ مكونات دلفي في مواضيع منتدى دلفي للعرب) 
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Is Window “Help | | ones -| | d =N 


mmon Controls & Delphi Help 


A [abr Eg Delphi Tools 


He windows SDK 


Borland Home Page 


Borland Developer Network 


Delphi Home Page 


Delphi Developer Support 
e Delphi Direct... 


E Wizard Test Sample 


Customize... 


About... 


D. Wizard Sample 
„ß; —xu 


ملاحظة: عند إنشاء وحدة Expert‏ بخيارات افتراضية دلفي يقوم بإضافة الوحدة في جهة Help‏ و في 
حالة رغبة إضافة الوحدة في مكان محدد., Tools‏ مثلا يجب علينا إضافة أوامر تقوم بذلك لكي لا يتم 


توجيه الوحدة افتراضيا بعد تثبيتها إلى جهة .Help‏ 


ReferenceMenuItem : MainMenu.FindMenuItem('ToolsOptionsItem'); 
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Flash Memory Filter/Locker برمجة‎ 


و 


المطلوب: 

برمجة تطبيق e‏ بتتبع Flash Memory q‏ بالجهاز و يظهر رسالة للمستخدم A‏ بذلك مع 
خيار فح ال Flash Memory‏ أو عدمه. 

A‏ خيار Ja Lock‏ ال Flach Memory‏ الدخول إليه. 


بالتوفيق إن شاء الله 


لمشاركتك في مقالات المجلة. أرسل فقط المقالة بصيغة DOC‏ أو DOCK‏ دون تنسيق مسبق إلى إدارة المنتدى 
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